home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 8
/
Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso
/
Aminet
/
mus
/
play
/
DMODP35b.lha
/
DASModPlayer
/
Rexx
/
LZX-list.drx
next >
Wrap
Text File
|
1995-03-10
|
3KB
|
75 lines
/****************************************************\
* LZX-Multifile lister V1.0 by Antti Tuominen *
****************************************************
* This script is freeware, you can do anything you *
* want with it as long as you remember that I *
* don't take any responsibility of what it does or *
* doesn't do. Feel free to include this to future *
* DAS release archives, P.P. *
****************************************************
* Use similar external arcs config entry: *
* Packer path: *
* sys:rexxc/rx dh1:progs/das/rexx/LZX-list.drx *
* Ending ID: #?.LZX *
* Packer opts: extract *
* Packer ~(): ~(#?readme#?|#?.diz|#?.displayme) *
* *
* Match string: LZX *
* Name offset: 41 *
* Listing opts: list *
* Name length: 40 *
* ___ ___ *
* !_V_! Byte length name !_V_! Multifiles? *
* !___! First file? !_V_! Tempdir *
****************************************************
* Contact info: *
* E-Mail: mfs@mits.mdata.fi *
* Voice phone: +358-0-745377 *
* Data phone (My BBS): +358-0-7545 896 *
* +358-0-7545 059 *
* Snail Mail: Antti Tuominen *
* Suursuontie 2 B 28 *
* 00630 HELSINKI (/FINLAND) *
****************************************************
* !!!! EDIT THE PATH TO YOUR LZX ON LINE 47 !!!! *
****************************************************
* Additional info by Pauli Porkka: *
* If you try to load a lzx archive from drive *
* named with spaces (example: "Ram Disk") it won't*
* work. If you find this insufficient, please use *
* default "only one file extraction" scheme. *
* One file extractions are same as mentioned above*
* except that select "First file" instead of *
* "Multifiles" and extract options = "-m x" *
* and there is no listing options. *
\****************************************************/
LZX = 'lzx' /* <- Correct the path! */
parse ARG komento arg2 arg3 arg4
select
when komento == 'list' then do
address command lzx || ' l ' || arg2 || ' >t:LZX_list.temp ' || arg3
if ~open(infile, 't:LZX_list.temp', 'R') then exit 20
rivi = ' '
do until left(rivi, 1) == '-'
rivi = readln(infile)
end
exit = 0
do until exit == 1
rivi = readln(infile)
if left(rivi,1) == '-' then exit = 1
if ((left(rivi,1) ~= '-') & (length(rivi) > 43)) then do
say right(rivi, length(rivi) - 43)
end
end
call close infile
address command 'delete t:LZX_list.temp quiet'
end /* select/list */
when komento = 'extract' then do
address command LZX || ' -m x >nil: ' || arg2 || ' ' || arg3 || ' ' || arg4
end
OTHERWISE exit 0
end /*select*/